home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / Util / Blank / GBlanker / GBlanker.000 / Remove < prev    next >
Text File  |  1994-12-30  |  2KB  |  57 lines
  1. ;; -*- lisp -*-
  2. ;; Garshneblanker Removal Script $VER:Garshneblanker 38.4 (18.10.94)
  3. ;;
  4.  
  5. (set oldUserLevel (user 3))
  6. (message
  7.  "\nWelcome to the Garshneblanker removal script.\n\n"
  8.  "This script will find out where you installed Garshneblanker and where you "
  9.  "installed the Garshneblanker modules. These are the same directories you "
  10.  "specified during the first two phases of installation. It will then remove "
  11.  "Garshneblanker from your system."
  12.  )
  13. (user oldUserLevel)
  14.  
  15. (set @default-loc "SYS:WBStartup")
  16.  
  17. (set @default-loc
  18.      (askdir
  19.       (prompt "Where is Garshneblanker installed?")
  20.       (help "The WBStartup directory on your boot disk is probably where it "
  21.             "was originally installed.")
  22.       (default @default-loc)
  23.       )
  24.      )
  25.  
  26. (delete (tackon @default-loc "Garshneblanker") (optional "force"))
  27. (delete (tackon @default-loc "Garshneblanker.info") (optional "force"))
  28.  
  29. (set @default-loc
  30.      (askdir
  31.       (prompt "Please select the directory that contains the 'Blankers' "
  32.               "directory (so if Garshneblanker was installed in SYS:WBStartup "
  33.               "and the blankers are in SYS:WBStartup/Blankers, then select "
  34.               "the directory SYS:WBStartup)")
  35.       (help "The WBStartup directory on your boot volume is probably where it "
  36.             "was originally installed.")
  37.       (default @default-loc)
  38.       )
  39.      )
  40.  
  41. (run "Delete %s ALL FORCE" (tackon @default-loc "Blankers"))
  42.  
  43. (delete "LIBS:Garshnelib.library" (optional "force"))
  44. (delete "ENV:BLANKER" (optional "force"))
  45. (delete "ENVARC:BLANKER" (optional "force"))
  46. (delete "ENV:GBLANKER.win" (optional "force"))
  47. (delete "ENVARC:GBLANKER.win" (optional "force"))
  48.  
  49. (user 3)
  50. (message
  51.  "\nThank you for trying out Garshneblanker. I hope that it met all of your "
  52.  "needs. If you have any questions or ideas for the furtherment of the "
  53.  "project, please feel free to e-mail me at:\n\nmbayne@qualcomm.com"
  54.  )
  55.  
  56. (exit (quiet))
  57.